1 HM=PEEK(&H65AC)*256+PEEK(&H65AD):CLEAR,HM-65::HM=PEEK(&H65AC)*256+PEEK(&H65AD):DTAB=PEEK(&H60CD)*256+PEEK(&H60CE):DNT=HM-64:FORI=0TO59:POKEDNT+I,PEEK(DTAB+I):NEXT:A1$=LEFT$(HEX$(DNT),2):A2$=RIGHT$(HEX$(DNT),2):POKEDNT+11,81:POKEDNT+19,87:POKEDNT+13,65
2 POKEDNT+8,90:POKE&H60CD,253:POKE&H60CE,5:INPUT"Azerty ou qwerty (A/Q) ";A$:A=INSTR("AaQq",A$):IFA=0THEN2ELSEIFA=3ORA=4THENPOKE&H60CD,VAL("&H"+A1$):POKE&H60CE,VAL("&H"+A2$):PRINT"MODE QWERTY"ELSEPRINT"MODE AZERTY"